home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / clisp-li.000 / clisp-li / clisp-1996-07-22 / src / disassem.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1996-07-22  |  2.6 KB  |  74 lines
  1. (SYSTEM::VERSION '(19071996.))
  2. #Y(#:TOP-LEVEL-FORM-1 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 02 30 E4 19 01)
  3.    "COMPILER"
  4.   )
  5. #Y(#:TOP-LEVEL-FORM-2
  6.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  7.    DISASSEMBLE-MACHINE-CODE REMOVE-OLD-DEFINITIONS
  8.    #Y(DISASSEMBLE-MACHINE-CODE
  9.       #122Y(03 00 01 00 03 00 00 00 00 04 62 D8 AE 6D 03 01 62 DA AF 6D 03 01
  10.             AB DB 37 03 70 FC 52 2A AC DC 2F 01 AC DD B3 2C 03 01 AC DE B2 2C
  11.             03 01 AC DF 2F 01 AC E0 2F 01 92 02 05 14 37 01 31 7F 3D 53 05 00
  12.             00 00 1C 0C 1A 06 05 00 00 00 1C 04 14 63 31 7F 54 16 01 62 E1 E2
  13.             AE B3 AF B4 6D 07 01 2E 0B AB 30 FA 62 E4 E5 87 0E 01 D2 14 AD 6D
  14.             04 01 2E 0B AA 30 FA 16 02 3D 19 04
  15.            )
  16.       #Y(DISASSEMBLE-MACHINE-CODE-1
  17.          #26Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AD 01 06 B3 2C 08
  18.               01 9C 19 04
  19.              )
  20.          "/tmp/gdbcomm" DO-FORMAT-DECIMAL
  21.         )
  22.       FORMAT
  23.       #Y(DISASSEMBLE-MACHINE-CODE-2
  24.          #26Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AD 01 06 B3 2C 08
  25.               01 9C 19 04
  26.              )
  27.          "/tmp/gdbdis" DO-FORMAT-DECIMAL
  28.         )
  29.       :OUTPUT
  30.       #Y(DISASSEMBLE-MACHINE-CODE-3
  31.          #19Y(00 00 00 00 01 00 00 00 01 17 D8 AD 37 02 30 8E 9C 19 03)
  32.          "set height 100000
  33. "
  34.         )
  35.       #Y(DISASSEMBLE-MACHINE-CODE-4
  36.          #29Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AD 01 06 B3 2C 08
  37.               01 AD 30 90 9C 19 04
  38.              )
  39.          "attach " DO-FORMAT-DECIMAL
  40.         )
  41.       #Y(DISASSEMBLE-MACHINE-CODE-5
  42.          #26Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 89 AD 30
  43.               90 9C 19 04
  44.              )
  45.          "x/10000i "
  46.         )
  47.       #Y(DISASSEMBLE-MACHINE-CODE-6
  48.          #19Y(00 00 00 00 01 00 00 00 01 17 D8 AD 37 02 30 8E 9C 19 03)
  49.          "detach
  50. "
  51.         )
  52.       #Y(DISASSEMBLE-MACHINE-CODE-7
  53.          #19Y(00 00 00 00 01 00 00 00 01 17 D8 AD 37 02 30 8E 9C 19 03)
  54.          "quit
  55. "
  56.         )
  57.       #Y(DISASSEMBLE-MACHINE-CODE-8
  58.          #58Y(00 00 00 00 06 00 00 00 01 00 B0 B2 30 89 D8 B2 37 02 30 8E AF B2
  59.               30 89 D9 B2 30 8D AE B2 30 89 DA B2 37 02 30 8E AD B2 30 89 DB B2
  60.               37 02 30 8E B1 01 06 B3 2C 08 04 9C 19 08
  61.              )
  62.          " -n -batch -x " #\Space " < /dev/null | grep '^0' | sed -e 1d > "
  63.          " ; kill -CONT " DO-FORMAT-DECIMAL
  64.         )
  65.       "gdb" SHELL
  66.       #Y(DISASSEMBLE-MACHINE-CODE-9
  67.          #25Y(00 00 00 00 03 00 00 00 01 19 AD AF 30 89 D8 AF 30 8D AC AF 30 89
  68.               9C 19 05
  69.              )
  70.          #\Space
  71.         )
  72.       "PAGER" GETENV "more"
  73.   )  )
  74.